home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / FTRLIST.PRG < prev    next >
Encoding:
Text File  |  1993-10-29  |  1.3 KB  |  59 lines
  1. *****
  2. * ftrlist
  3. * Function to control the feature list box
  4. *****
  5. if mvparm1=1
  6.     imgsay(04,31,14,15,-1,"","FEATURE DESCRIPTION")
  7.     *****
  8.     * start up of imglistbox()
  9.     * first screen of feature list file
  10.     *****
  11.     mvfeatures=memoread("features.txt")
  12.     mvcount=mlcount(mvfeatures,50)
  13.     mvscreen=iif(mvcount<=23,mvcount,23)
  14.     mvline=0
  15.     mvtoprow=5
  16.     mvlastline=29
  17.     mvcol=14
  18.     do while mvline<=mvscreen
  19.         mvline=mvline+1
  20.         mvtext=memoline(mvfeatures,50,mvline)
  21.         imgsay(mvtoprow+mvline,mvcol,14,15,-1,"",mvtext)
  22.     enddo
  23.     return 1
  24. endif
  25. if mvparm1=2
  26.     *****
  27.     * Up arrow press
  28.     *****
  29.     if mvline>=mvscreen
  30.         mvtext=memoline(mvfeatures,50,mvline-mvscreen-1)
  31.         imgscroll("down",14,6,14,29,63,1)
  32.         imgsay(mvtoprow+1,mvcol,14,15,-1,"",mvtext)
  33.         mvline=mvline-1
  34.     endif
  35.     return 1
  36. endif
  37. if mvparm1=3
  38.     *****
  39.     * Down arrow pressed
  40.     *****
  41.     if mvline<=mvcount
  42.         mvline=mvline+1
  43.         mvtext=memoline(mvfeatures,50,mvline)
  44.         imgscroll("up",14,6,14,29,63,1)
  45.         imgsay(mvlastline,mvcol,14,15,-1,"",mvtext)
  46.     endif
  47.     return 1
  48. endif
  49. if mvparm1=4
  50.     return 0
  51. endif
  52. if mvparm1=5
  53.     *****
  54.     * button press inside-ignore
  55.     *****
  56.     return 1
  57. endif
  58. return 1
  59.